home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / src.echo < prev    next >
Text File  |  2007-03-01  |  2KB  |  143 lines
  1. ;
  2. ;--------------------------------;
  3. ; SRC.ECHO                       ;
  4. ;          ENABLES PRINTER ECHO  ;
  5. ;          ON THE SCREEN         ;
  6. ;                                ;
  7. ; BY MARCEL BOKHORST             ;
  8. ; DUTCH COMAL USERS GROUP        ;
  9. ;                                ;
  10. ; 850108-850108                  ;
  11. ;                                ;
  12. ; LAST CHANGE: 860707  DK        ;
  13. ; VERSION    : 1.02              ;
  14. ;                                ;
  15. ;--------------------------------;
  16. ;
  17.  .OPT NOLIST
  18.        .LIB SYMBOLS
  19.        .OPT ERROR, LIST, NOSYM
  20. ;
  21. ;
  22. *      = $8009
  23. ;
  24. HCODE  = RSOBUF
  25. ONSCR  = $E716
  26. FLAG   = HZ50+1
  27. OLD    = HZ50+2
  28. ;
  29. ;--------------------------------;
  30. ; DON'T ROM THIS PACKAGE !       ;
  31. ;--------------------------------;
  32. ;
  33.        .BYTE DEFPAG
  34.        .WORD END
  35.        .WORD SIGNAL
  36. ;
  37.        .BYTE 4,'ECHO'
  38.        .WORD PROCS
  39.        .WORD DUMMY
  40.        .BYTE 0
  41. ;
  42. PROCS
  43. ;
  44. ; PROC SETECHO(FLAG#)
  45. ;  // FLAG=FALSE: NO ECHO ON SCRN
  46. ;  // FLAG=TRUE : ECHO ON SCREEN
  47. ;
  48.  .BYTE 7,'SETECHO'
  49.        .WORD HECHO
  50. ;
  51. ; FUNC VERSION'ECHO$
  52. ;
  53.        .BYTE 12,'VERSION''ECHO'
  54.        .WORD HVERSN
  55.        .BYTE 0
  56. ;
  57. HECHO  .BYTE PROC
  58.        .WORD ECHO
  59.        .BYTE 1
  60.        .BYTE VALUE+INT
  61.        .BYTE ENDPRC
  62. ;
  63. HVERSN .BYTE FUNC+STR
  64.  .WORD VERSN
  65.        .BYTE 0
  66.  .BYTE ENDFNC
  67. ;
  68. ECHO   LDA #1
  69.        JSR FNDPAR
  70.        LDY #0
  71.        LDA (COPY1),Y
  72.        INY
  73.        ORA (COPY1),Y
  74.        STA FLAG
  75.        RTS
  76. ;
  77. SIGNAL CPY #LINK
  78.        BEQ ON
  79.        CPY #DSCRD
  80.        BNE READY
  81. ;
  82.        LDA OLD
  83.        LDY OLD+1
  84.        STA IBSOUT
  85.        STY IBSOUT+1
  86.        RTS
  87. ;
  88. ON     LDA IBSOUT
  89.        LDY IBSOUT+1
  90.        STA OLD
  91.        STY OLD+1
  92. ;
  93.        LDA #FALSE
  94.        STA FLAG
  95. ;
  96.        LDY #LEN
  97. NEXT   LDA FROM,Y
  98.        STA HCODE,Y
  99.        DEY
  100.        BPL NEXT
  101.        LDA #<HCODE
  102.        LDY #>HCODE
  103.        STA IBSOUT
  104.        STY IBSOUT+1
  105. READY  RTS
  106. ;
  107. FROM   PHA
  108.        LDA FLAG
  109.        BEQ NOECHO
  110.        LDA DFLTO
  111.        CMP #4
  112.        BNE NOECHO
  113.        PLA
  114.        PHA
  115.        JSR ONSCR
  116. NOECHO PLA
  117.        JMP (OLD)
  118. ;
  119. LEN    = *-FROM
  120. ;
  121. ; CODE FOR VERSION NUMBER
  122. ;
  123. VERSN  LDA #VERST3-VERST2+2
  124.  JSR EXCGST
  125.  LDY #0
  126. VERST1 LDA VERST2,Y
  127.  STA (COPY2),Y
  128.  INY
  129.  CPY #VERST3-VERST2
  130.  BNE VERST1
  131.  LDA #0
  132.  STA (COPY2),Y
  133.  LDA #VERST3-VERST2
  134.  INY
  135.  STA (COPY2),Y
  136.  RTS
  137. ;
  138. VERST2 .BYTE ' 1.02 ECHO PACKAGE'
  139.  .BYTE ' BY MARCEL BOKHORST'
  140. VERST3
  141. ;
  142. END .END
  143.